object UserEditForm: TUserEditForm
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #29992#25143#32534#36753
  ClientHeight = 380
  ClientWidth = 451
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 16
    Top = 16
    Width = 337
    Height = 137
    Caption = #29992#25143#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 17
      Top = 23
      Width = 48
      Height = 13
      Caption = #29992#25143#32534#30721
      FocusControl = dbedtCode
    end
    object Label2: TLabel
      Left = 17
      Top = 47
      Width = 48
      Height = 13
      Caption = #29992#25143#21517#31216
      FocusControl = DBEdit2
    end
    object Label3: TLabel
      Left = 17
      Top = 106
      Width = 48
      Height = 13
      Caption = #22791'        '#27880
    end
    object Label4: TLabel
      Left = 17
      Top = 78
      Width = 48
      Height = 13
      Caption = #23494'        '#30721
    end
    object dbedtCode: TDBEdit
      Left = 71
      Top = 20
      Width = 120
      Height = 21
      DataField = 'UserCode'
      DataSource = dsUser
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 71
      Top = 47
      Width = 120
      Height = 21
      DataField = 'UserName'
      DataSource = dsUser
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 71
      Top = 103
      Width = 258
      Height = 21
      DataField = 'Remark'
      DataSource = dsUser
      TabOrder = 3
    end
    object dbcbState: TDBCheckBox
      Left = 203
      Top = 26
      Width = 81
      Height = 17
      Caption = #27880#38144#35813#29992#25143
      DataField = 'State'
      DataSource = dsUser
      TabOrder = 4
      ValueChecked = '1'
      ValueUnchecked = '0'
    end
    object dbcbDisp: TDBCheckBox
      Left = 203
      Top = 53
      Width = 126
      Height = 17
      Caption = #26174#31034#22312#36873#25321#21015#34920#20013
      DataField = 'Disp'
      DataSource = dsUser
      TabOrder = 5
      ValueChecked = '1'
      ValueUnchecked = '0'
    end
    object DBEdit1: TDBEdit
      Left = 71
      Top = 76
      Width = 120
      Height = 21
      DataField = 'PassWords'
      DataSource = dsUser
      PasswordChar = '*'
      TabOrder = 2
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 169
    Width = 426
    Height = 204
    Caption = #25152#23646#35282#33394
    TabOrder = 1
    object lvRole: TListView
      Left = 2
      Top = 15
      Width = 422
      Height = 187
      Align = alClient
      Checkboxes = True
      Columns = <
        item
          AutoSize = True
          Caption = #35282#33394#32534#30721
        end
        item
          AutoSize = True
          Caption = #35282#33394#21517#31216
        end>
      ReadOnly = True
      TabOrder = 0
      ViewStyle = vsReport
    end
  end
  object btnOK: TBitBtn
    Left = 367
    Top = 24
    Width = 75
    Height = 25
    Caption = #30830#23450'(&E)'
    TabOrder = 2
    OnClick = btnOKClick
  end
  object btnClose: TBitBtn
    Left = 367
    Top = 55
    Width = 75
    Height = 25
    Caption = #36820#22238'(&C)'
    TabOrder = 3
    OnClick = btnCloseClick
  end
  object cdsUser: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 368
    Top = 85
    object cdsUserUserCode: TWideStringField
      DisplayLabel = #29992#25143#32534#30721
      FieldName = 'UserCode'
      Size = 50
    end
    object cdsUserUserName: TWideStringField
      DisplayLabel = #29992#25143#21517#31216
      FieldName = 'UserName'
      Size = 50
    end
    object cdsUserPassWords: TWideStringField
      FieldName = 'PassWords'
      Size = 50
    end
    object cdsUserDisp: TIntegerField
      DisplayLabel = #26174#31034#22312#36873#25321#21015#34920#20013
      FieldName = 'Disp'
    end
    object cdsUserState: TIntegerField
      DisplayLabel = #20572#29992
      FieldName = 'State'
    end
    object cdsUserRemark: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 250
    end
  end
  object dsUser: TDataSource
    DataSet = cdsUser
    Left = 400
    Top = 85
  end
  object cdsRole: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 224
    Top = 224
    object cdsRoleRoleCode: TWideStringField
      DisplayLabel = #35282#33394#32534#30721
      FieldName = 'RoleCode'
      Size = 50
    end
    object cdsRoleRoleName: TWideStringField
      DisplayLabel = #35282#33394#21517#31216
      FieldName = 'RoleName'
      Size = 50
    end
  end
  object dsRole: TDataSource
    DataSet = cdsRole
    Left = 256
    Top = 224
  end
  object cdsUserRole: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 224
    Top = 256
    object cdsUserRoleUserCode: TWideStringField
      DisplayLabel = #29992#25143#32534#30721
      FieldName = 'UserCode'
      Size = 50
    end
    object cdsUserRoleRoleCode: TWideStringField
      DisplayLabel = #35282#33394#32534#30721
      FieldName = 'RoleCode'
      Size = 50
    end
  end
end
